/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / SystemCode / flags.tcl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 66 6c 61 67 73 2e | 74 63 6c 00 00 00 00 00 |..flags.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 0e 35 00 | 00 01 7e ae 39 01 e8 ae |......5.|..~.9...|
|00000060| 39 01 e8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6e 2d 00 00 |........|....n-..|
|00000080| 0d 73 65 74 20 74 69 6c | 65 57 69 64 74 68 20 5b |.set til|eWidth [|
|00000090| 65 78 70 72 20 24 73 63 | 72 65 65 6e 57 69 64 74 |expr $sc|reenWidt|
|000000a0| 68 20 2d 20 31 30 5d 0d | 69 66 20 7b 24 74 69 6c |h - 10].|if {$til|
|000000b0| 65 57 69 64 74 68 20 3e | 20 35 31 30 7d 20 7b 73 |eWidth >| 510} {s|
|000000c0| 65 74 20 64 65 66 57 69 | 64 74 68 20 35 31 30 7d |et defWi|dth 510}|
|000000d0| 20 65 6c 73 65 20 7b 73 | 65 74 20 64 65 66 57 69 | else {s|et defWi|
|000000e0| 64 74 68 20 24 74 69 6c | 65 57 69 64 74 68 20 7d |dth $til|eWidth }|
|000000f0| 0d 73 65 74 20 74 69 6c | 65 48 65 69 67 68 74 20 |.set til|eHeight |
|00000100| 5b 65 78 70 72 20 24 73 | 63 72 65 65 6e 48 65 69 |[expr $s|creenHei|
|00000110| 67 68 74 20 2d 20 36 30 | 5d 0d 73 65 74 20 64 65 |ght - 60|].set de|
|00000120| 66 48 65 69 67 68 74 20 | 24 74 69 6c 65 48 65 69 |fHeight |$tileHei|
|00000130| 67 68 74 0d 0d 73 65 74 | 20 6d 61 72 20 32 32 0d |ght..set| mar 22.|
|00000140| 73 65 74 20 65 72 72 6f | 72 48 65 69 67 68 74 20 |set erro|rHeight |
|00000150| 5b 65 78 70 72 20 28 28 | 24 74 69 6c 65 48 65 69 |[expr ((|$tileHei|
|00000160| 67 68 74 20 2d 20 24 6d | 61 72 29 20 2f 20 33 29 |ght - $m|ar) / 3)|
|00000170| 5d 0d 73 65 74 20 65 72 | 72 6f 72 44 69 73 70 20 |].set er|rorDisp |
|00000180| 5b 65 78 70 72 20 28 32 | 20 2a 20 28 24 74 69 6c |[expr (2| * ($til|
|00000190| 65 48 65 69 67 68 74 20 | 2d 20 24 6d 61 72 29 29 |eHeight |- $mar))|
|000001a0| 20 2f 20 33 5d 0d 75 6e | 73 65 74 20 6d 61 72 0d | / 3].un|set mar.|
|000001b0| 0d 73 65 74 20 74 63 6c | 76 61 72 73 20 7b 7d 0d |.set tcl|vars {}.|
|000001c0| 0d 73 65 74 20 61 6c 6c | 46 6c 61 67 73 20 7b 7d |.set all|Flags {}|
|000001d0| 0d 73 65 74 20 61 6c 6c | 56 61 72 73 20 7b 7d 0d |.set all|Vars {}.|
|000001e0| 73 65 74 20 69 6e 76 69 | 73 69 62 6c 65 4d 6f 64 |set invi|sibleMod|
|000001f0| 65 56 61 72 73 28 77 6f | 72 64 57 72 61 70 29 20 |eVars(wo|rdWrap) |
|00000200| 31 0d 0d 23 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |1..# The| followi|
|00000210| 6e 67 20 74 68 72 65 65 | 20 70 72 6f 63 73 2c 20 |ng three| procs, |
|00000220| 74 6f 67 65 74 68 65 72 | 20 77 2f 20 74 68 65 20 |together| w/ the |
|00000230| 69 6e 69 74 69 61 6c 69 | 7a 61 74 69 6f 6e 20 0d |initiali|zation .|
|00000240| 23 20 66 6f 72 20 74 68 | 65 20 66 6c 61 67 73 20 |# for th|e flags |
|00000250| 62 65 6c 6f 77 2c 20 61 | 6c 6c 6f 77 20 61 20 74 |below, a|llow a t|
|00000260| 6f 74 61 6c 6c 79 20 54 | 63 6c 2d 63 6f 6e 74 72 |otally T|cl-contr|
|00000270| 6f 6c 6c 65 64 20 6d 65 | 6e 75 20 74 6f 20 0d 23 |olled me|nu to .#|
|00000280| 20 73 68 61 64 6f 77 20 | 41 6c 70 68 61 27 73 20 | shadow |Alpha's |
|00000290| 69 6e 74 65 72 6e 61 6c | 20 76 61 72 69 61 62 6c |internal| variabl|
|000002a0| 65 73 2e 0d 70 72 6f 63 | 20 69 6e 69 74 46 6c 61 |es..proc| initFla|
|000002b0| 67 20 7b 76 61 72 20 7b | 76 61 6c 20 22 22 7d 7d |g {var {|val ""}}|
|000002c0| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 24 76 61 72 20 | {..glob|al $var |
|000002d0| 6d 6f 64 65 56 61 72 73 | 20 74 63 6c 76 61 72 73 |modeVars| tclvars|
|000002e0| 20 61 6c 6c 46 6c 61 67 | 73 0d 09 69 66 20 7b 5b | allFlag|s..if {[|
|000002f0| 6c 73 65 61 72 63 68 20 | 2d 65 78 61 63 74 20 24 |lsearch |-exact $|
|00000300| 74 63 6c 76 61 72 73 20 | 24 76 61 72 5d 20 3c 20 |tclvars |$var] < |
|00000310| 30 7d 20 7b 0d 09 09 6c | 61 70 70 65 6e 64 20 74 |0} {...l|append t|
|00000320| 63 6c 76 61 72 73 20 24 | 76 61 72 0d 09 7d 0d 09 |clvars $|var..}..|
|00000330| 6c 69 6e 6b 56 61 72 20 | 24 76 61 72 0d 09 69 66 |linkVar |$var..if|
|00000340| 20 7b 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 | {[strin|g length|
|00000350| 20 24 76 61 6c 5d 7d 20 | 7b 73 65 74 20 24 76 61 | $val]} |{set $va|
|00000360| 72 20 24 76 61 6c 7d 0d | 09 6c 61 70 70 65 6e 64 |r $val}.|.lappend|
|00000370| 20 61 6c 6c 46 6c 61 67 | 73 20 24 76 61 72 0d 7d | allFlag|s $var.}|
|00000380| 0d 0d 23 20 43 61 6c 6c | 65 64 20 66 6f 72 20 6f |..# Call|ed for o|
|00000390| 72 64 69 6e 61 72 79 20 | 74 63 6c 20 67 6c 6f 62 |rdinary |tcl glob|
|000003a0| 61 6c 20 76 61 72 73 20 | 77 65 20 77 61 6e 74 20 |al vars |we want |
|000003b0| 69 6e 63 6c 75 64 65 64 | 20 69 6e 20 74 68 65 20 |included| in the |
|000003c0| 46 6c 61 67 73 20 6d 65 | 6e 75 2e 0d 70 72 6f 63 |Flags me|nu..proc|
|000003d0| 20 69 6e 69 74 54 63 6c | 46 6c 61 67 20 7b 66 6c | initTcl|Flag {fl|
|000003e0| 61 67 20 7b 76 61 6c 20 | 30 7d 20 7b 70 6e 61 6d |ag {val |0} {pnam|
|000003f0| 65 20 22 22 7d 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |e ""}} {|..global|
|00000400| 20 24 66 6c 61 67 20 61 | 6c 6c 46 6c 61 67 73 20 | $flag a|llFlags |
|00000410| 74 63 6c 76 61 72 73 20 | 6d 6f 64 65 56 61 72 73 |tclvars |modeVars|
|00000420| 20 74 63 6c 5f 76 61 72 | 5f 70 72 6f 63 73 0d 09 | tcl_var|_procs..|
|00000430| 69 66 20 7b 5b 6c 73 65 | 61 72 63 68 20 2d 65 78 |if {[lse|arch -ex|
|00000440| 61 63 74 20 24 74 63 6c | 76 61 72 73 20 24 66 6c |act $tcl|vars $fl|
|00000450| 61 67 5d 20 3c 20 30 7d | 20 7b 0d 09 09 6c 61 70 |ag] < 0}| {...lap|
|00000460| 70 65 6e 64 20 74 63 6c | 76 61 72 73 20 24 66 6c |pend tcl|vars $fl|
|00000470| 61 67 0d 09 7d 0d 09 69 | 66 20 7b 21 5b 69 6e 66 |ag..}..i|f {![inf|
|00000480| 6f 20 65 78 69 73 74 73 | 20 24 66 6c 61 67 5d 7d |o exists| $flag]}|
|00000490| 20 7b 73 65 74 20 24 66 | 6c 61 67 20 24 76 61 6c | {set $f|lag $val|
|000004a0| 7d 0d 09 6c 61 70 70 65 | 6e 64 20 61 6c 6c 46 6c |}..lappe|nd allFl|
|000004b0| 61 67 73 20 24 66 6c 61 | 67 0d 0d 09 69 66 20 7b |ags $fla|g...if {|
|000004c0| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|000004d0| 70 6e 61 6d 65 5d 7d 20 | 7b 0d 09 09 73 65 74 20 |pname]} |{...set |
|000004e0| 74 63 6c 5f 76 61 72 5f | 70 72 6f 63 73 28 24 66 |tcl_var_|procs($f|
|000004f0| 6c 61 67 29 20 24 70 6e | 61 6d 65 0d 09 7d 0d 7d |lag) $pn|ame..}.}|
|00000500| 0d 0d 23 20 43 61 6c 6c | 65 64 20 66 6f 72 20 6f |..# Call|ed for o|
|00000510| 72 64 69 6e 61 72 79 20 | 74 63 6c 20 67 6c 6f 62 |rdinary |tcl glob|
|00000520| 61 6c 20 76 61 72 73 20 | 77 65 20 77 61 6e 74 20 |al vars |we want |
|00000530| 69 6e 63 6c 75 64 65 64 | 20 69 6e 20 74 68 65 20 |included| in the |
|00000540| 56 61 72 73 20 6d 65 6e | 75 2e 0d 70 72 6f 63 20 |Vars men|u..proc |
|00000550| 69 6e 69 74 54 63 6c 56 | 61 72 20 7b 76 61 72 20 |initTclV|ar {var |
|00000560| 7b 76 61 6c 20 22 22 7d | 20 7b 70 6e 61 6d 65 20 |{val ""}| {pname |
|00000570| 22 22 7d 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 24 |""}} {..|global $|
|00000580| 76 61 72 20 74 63 6c 76 | 61 72 73 20 6d 6f 64 65 |var tclv|ars mode|
|00000590| 56 61 72 73 20 61 6c 6c | 56 61 72 73 20 74 63 6c |Vars all|Vars tcl|
|000005a0| 5f 76 61 72 5f 70 72 6f | 63 73 0d 09 69 66 20 7b |_var_pro|cs..if {|
|000005b0| 5b 6c 73 65 61 72 63 68 | 20 2d 65 78 61 63 74 20 |[lsearch| -exact |
|000005c0| 24 74 63 6c 76 61 72 73 | 20 24 76 61 72 5d 20 3c |$tclvars| $var] <|
|000005d0| 20 30 7d 20 7b 0d 09 09 | 6c 61 70 70 65 6e 64 20 | 0} {...|lappend |
|000005e0| 74 63 6c 76 61 72 73 20 | 24 76 61 72 0d 09 7d 0d |tclvars |$var..}.|
|000005f0| 09 69 66 20 7b 5b 73 74 | 72 69 6e 67 20 6c 65 6e |.if {[st|ring len|
|00000600| 67 74 68 20 24 76 61 6c | 5d 7d 20 7b 0d 09 09 73 |gth $val|]} {...s|
|00000610| 65 74 20 24 76 61 72 20 | 24 76 61 6c 0d 09 7d 0d |et $var |$val..}.|
|00000620| 09 69 66 20 7b 21 5b 69 | 6e 66 6f 20 65 78 69 73 |.if {![i|nfo exis|
|00000630| 74 73 20 24 76 61 72 5d | 7d 20 7b 73 65 74 20 24 |ts $var]|} {set $|
|00000640| 76 61 72 20 30 7d 0d 09 | 6c 61 70 70 65 6e 64 20 |var 0}..|lappend |
|00000650| 61 6c 6c 56 61 72 73 20 | 24 76 61 72 0d 0d 09 69 |allVars |$var...i|
|00000660| 66 20 7b 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |f {[stri|ng lengt|
|00000670| 68 20 24 70 6e 61 6d 65 | 5d 7d 20 7b 0d 09 09 73 |h $pname|]} {...s|
|00000680| 65 74 20 74 63 6c 5f 76 | 61 72 5f 70 72 6f 63 73 |et tcl_v|ar_procs|
|00000690| 28 24 76 61 72 29 20 24 | 70 6e 61 6d 65 0d 09 7d |($var) $|pname..}|
|000006a0| 0d 7d 0d 0d 70 72 6f 63 | 20 69 6e 69 74 56 61 72 |.}..proc| initVar|
|000006b0| 20 7b 76 61 72 20 7b 76 | 61 6c 20 22 22 7d 7d 20 | {var {v|al ""}} |
|000006c0| 7b 0d 09 67 6c 6f 62 61 | 6c 20 24 76 61 72 20 74 |{..globa|l $var t|
|000006d0| 63 6c 76 61 72 73 20 6d | 6f 64 65 56 61 72 73 20 |clvars m|odeVars |
|000006e0| 61 6c 6c 56 61 72 73 0d | 09 69 66 20 7b 5b 6c 73 |allVars.|.if {[ls|
|000006f0| 65 61 72 63 68 20 2d 65 | 78 61 63 74 20 24 74 63 |earch -e|xact $tc|
|00000700| 6c 76 61 72 73 20 24 76 | 61 72 5d 20 3c 20 30 7d |lvars $v|ar] < 0}|
|00000710| 20 7b 0d 09 09 6c 61 70 | 70 65 6e 64 20 74 63 6c | {...lap|pend tcl|
|00000720| 76 61 72 73 20 24 76 61 | 72 0d 09 7d 0d 09 6c 69 |vars $va|r..}..li|
|00000730| 6e 6b 56 61 72 20 24 76 | 61 72 0d 09 69 66 20 7b |nkVar $v|ar..if {|
|00000740| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00000750| 76 61 6c 5d 7d 20 7b 0d | 09 09 73 65 74 20 24 76 |val]} {.|..set $v|
|00000760| 61 72 20 24 76 61 6c 0d | 09 7d 0d 09 6c 61 70 70 |ar $val.|.}..lapp|
|00000770| 65 6e 64 20 61 6c 6c 56 | 61 72 73 20 24 76 61 72 |end allV|ars $var|
|00000780| 0d 7d 0d 0d 23 20 54 68 | 69 73 20 66 69 6c 65 20 |.}..# Th|is file |
|00000790| 63 6f 6e 74 61 69 6e 73 | 20 6d 65 74 68 6f 64 73 |contains| methods|
|000007a0| 20 61 6c 6c 6f 77 69 6e | 67 20 74 68 65 20 73 68 | allowin|g the sh|
|000007b0| 61 64 6f 77 69 6e 67 20 | 6f 66 20 74 63 6c 20 76 |adowing |of tcl v|
|000007c0| 61 72 69 61 62 6c 65 73 | 20 0d 0d 69 6e 69 74 46 |ariables| ..initF|
|000007d0| 6c 61 67 20 61 75 74 6f | 48 53 63 72 6f 6c 6c 0d |lag auto|HScroll.|
|000007e0| 69 6e 69 74 46 6c 61 67 | 20 61 75 74 6f 53 61 76 |initFlag| autoSav|
|000007f0| 65 0d 69 6e 69 74 54 63 | 6c 46 6c 61 67 20 62 61 |e.initTc|lFlag ba|
|00000800| 63 6b 75 70 0d 69 6e 69 | 74 46 6c 61 67 20 62 6c |ckup.ini|tFlag bl|
|00000810| 69 6e 6b 69 6e 67 43 75 | 72 73 6f 72 0d 69 6e 69 |inkingCu|rsor.ini|
|00000820| 74 46 6c 61 67 20 62 6c | 6f 63 6b 43 75 72 73 6f |tFlag bl|ockCurso|
|00000830| 72 0d 69 6e 69 74 46 6c | 61 67 20 63 6f 6c 6f 72 |r.initFl|ag color|
|00000840| 69 6e 67 0d 69 6e 69 74 | 46 6c 61 67 20 64 72 61 |ing.init|Flag dra|
|00000850| 67 41 6e 64 44 72 6f 70 | 0d 69 6e 69 74 54 63 6c |gAndDrop|.initTcl|
|00000860| 46 6c 61 67 20 66 6f 72 | 63 65 4d 61 69 6e 53 63 |Flag for|ceMainSc|
|00000870| 72 65 65 6e 20 31 0d 69 | 6e 69 74 46 6c 61 67 20 |reen 1.i|nitFlag |
|00000880| 68 6f 72 53 63 72 6f 6c | 6c 42 61 72 20 30 0d 69 |horScrol|lBar 0.i|
|00000890| 6e 69 74 46 6c 61 67 20 | 68 79 70 65 72 54 65 78 |nitFlag |hyperTex|
|000008a0| 74 20 31 0d 69 6e 69 74 | 54 63 6c 46 6c 61 67 20 |t 1.init|TclFlag |
|000008b0| 69 63 6f 6e 69 66 79 4f | 6e 53 77 69 74 63 68 0d |iconifyO|nSwitch.|
|000008c0| 69 6e 69 74 46 6c 61 67 | 20 69 6e 64 65 6e 74 4f |initFlag| indentO|
|000008d0| 6e 43 52 0d 69 6e 69 74 | 54 63 6c 46 6c 61 67 20 |nCR.init|TclFlag |
|000008e0| 69 6e 66 6f 57 69 6e 64 | 6f 77 73 44 69 72 74 79 |infoWind|owsDirty|
|000008f0| 20 30 0d 69 6e 69 74 54 | 63 6c 46 6c 61 67 20 69 | 0.initT|clFlag i|
|00000900| 6e 74 65 6c 43 75 74 50 | 61 73 74 65 20 31 0d 63 |ntelCutP|aste 1.c|
|00000910| 61 74 63 68 20 7b 69 6e | 69 74 46 6c 61 67 20 6c |atch {in|itFlag l|
|00000920| 6f 63 6b 53 74 61 74 75 | 73 20 31 7d 0d 69 6e 69 |ockStatu|s 1}.ini|
|00000930| 74 46 6c 61 67 20 6d 6f | 76 65 49 6e 73 65 72 74 |tFlag mo|veInsert|
|00000940| 69 6f 6e 0d 69 6e 69 74 | 46 6c 61 67 20 6f 70 65 |ion.init|Flag ope|
|00000950| 6e 41 6c 6c 46 69 6c 65 | 73 0d 69 6e 69 74 46 6c |nAllFile|s.initFl|
|00000960| 61 67 20 70 6f 77 65 72 | 54 68 75 6d 62 0d 69 6e |ag power|Thumb.in|
|00000970| 69 74 46 6c 61 67 20 70 | 72 6f 6a 65 63 74 6f 72 |itFlag p|rojector|
|00000980| 41 77 61 72 65 0d 69 6e | 69 74 46 6c 61 67 20 73 |Aware.in|itFlag s|
|00000990| 68 6f 77 49 6e 76 69 73 | 69 62 6c 65 73 0d 69 6e |howInvis|ibles.in|
|000009a0| 69 74 46 6c 61 67 20 73 | 6d 61 6c 6c 4d 65 6e 75 |itFlag s|mallMenu|
|000009b0| 46 6f 6e 74 0d 69 6e 69 | 74 54 63 6c 46 6c 61 67 |Font.ini|tTclFlag|
|000009c0| 20 73 6f 72 74 46 75 6e | 63 73 4d 65 6e 75 20 31 | sortFun|csMenu 1|
|000009d0| 0d 69 6e 69 74 46 6c 61 | 67 20 73 6f 72 74 65 64 |.initFla|g sorted|
|000009e0| 49 73 44 65 66 61 75 6c | 74 0d 69 6e 69 74 46 6c |IsDefaul|t.initFl|
|000009f0| 61 67 20 74 65 6d 70 4d | 65 6d 0d 69 6e 69 74 46 |ag tempM|em.initF|
|00000a00| 6c 61 67 20 75 6e 64 6f | 4f 6e 0d 69 6e 69 74 46 |lag undo|On.initF|
|00000a10| 6c 61 67 20 77 6f 72 64 | 57 72 61 70 0d 0d 70 72 |lag word|Wrap..pr|
|00000a20| 6f 63 20 77 6f 72 64 57 | 72 61 70 50 72 6f 63 20 |oc wordW|rapProc |
|00000a30| 7b 76 61 6c 7d 20 7b 20 | 0d 09 67 6c 6f 62 61 6c |{val} { |..global|
|00000a40| 20 6d 6f 64 65 20 77 6f | 72 64 57 72 61 70 20 6d | mode wo|rdWrap m|
|00000a50| 6f 64 69 66 69 65 64 4d | 6f 64 65 56 61 72 73 20 |odifiedM|odeVars |
|00000a60| 0d 09 67 6c 6f 62 61 6c | 20 24 7b 6d 6f 64 65 7d |..global| ${mode}|
|00000a70| 6d 6f 64 65 56 61 72 73 | 0d 09 73 65 74 20 77 6f |modeVars|..set wo|
|00000a80| 72 64 57 72 61 70 20 24 | 76 61 6c 0d 09 73 65 74 |rdWrap $|val..set|
|00000a90| 20 24 7b 6d 6f 64 65 7d | 6d 6f 64 65 56 61 72 73 | ${mode}|modeVars|
|00000aa0| 28 77 6f 72 64 57 72 61 | 70 29 20 24 76 61 6c 0d |(wordWra|p) $val.|
|00000ab0| 09 6c 61 70 70 65 6e 64 | 20 6d 6f 64 69 66 69 65 |.lappend| modifie|
|00000ac0| 64 4d 6f 64 65 56 61 72 | 73 20 5b 6c 69 73 74 20 |dModeVar|s [list |
|00000ad0| 77 6f 72 64 57 72 61 70 | 20 24 7b 6d 6f 64 65 7d |wordWrap| ${mode}|
|00000ae0| 6d 6f 64 65 56 61 72 73 | 5d 0d 7d 0d 0d 0d 69 6e |modeVars|].}...in|
|00000af0| 69 74 54 63 6c 56 61 72 | 20 62 61 63 6b 45 78 74 |itTclVar| backExt|
|00000b00| 65 6e 73 69 6f 6e 20 22 | 7e 22 0d 69 6e 69 74 54 |ension "|~".initT|
|00000b10| 63 6c 56 61 72 20 62 61 | 63 6b 44 69 72 0d 73 65 |clVar ba|ckDir.se|
|00000b20| 74 20 62 61 63 6b 44 69 | 72 20 22 22 0d 69 6e 69 |t backDi|r "".ini|
|00000b30| 74 56 61 72 20 62 6f 74 | 74 6f 6d 4d 61 72 67 69 |tVar bot|tomMargi|
|00000b40| 6e 0d 69 6e 69 74 56 61 | 72 20 63 68 61 6e 67 65 |n.initVa|r change|
|00000b50| 73 4c 69 6d 0d 69 6e 69 | 74 56 61 72 20 64 65 66 |sLim.ini|tVar def|
|00000b60| 61 75 6c 74 46 6f 6e 74 | 0d 69 6e 69 74 56 61 72 |aultFont|.initVar|
|00000b70| 20 64 65 66 48 65 69 67 | 68 74 0d 69 6e 69 74 56 | defHeig|ht.initV|
|00000b80| 61 72 20 64 65 66 4c 65 | 66 74 20 09 32 0d 69 6e |ar defLe|ft .2.in|
|00000b90| 69 74 56 61 72 20 64 65 | 66 54 6f 70 20 09 09 34 |itVar de|fTop ..4|
|00000ba0| 30 0d 69 6e 69 74 56 61 | 72 20 64 65 66 57 69 64 |0.initVa|r defWid|
|00000bb0| 74 68 0d 69 6e 69 74 54 | 63 6c 56 61 72 20 64 69 |th.initT|clVar di|
|00000bc0| 66 66 46 6c 61 67 73 20 | 7b 20 7d 0d 69 6e 69 74 |ffFlags |{ }.init|
|00000bd0| 54 63 6c 46 6c 61 67 20 | 64 6f 75 62 6c 65 53 70 |TclFlag |doubleSp|
|00000be0| 61 63 65 73 20 31 0d 69 | 6e 69 74 56 61 72 20 66 |aces 1.i|nitVar f|
|00000bf0| 69 6c 6c 43 6f 6c 75 6d | 6e 0d 69 6e 69 74 56 61 |illColum|n.initVa|
|00000c00| 72 20 66 6f 6e 74 53 69 | 7a 65 0d 69 6e 69 74 56 |r fontSi|ze.initV|
|00000c10| 61 72 20 66 75 6e 63 45 | 78 70 72 0d 69 6e 69 74 |ar funcE|xpr.init|
|00000c20| 56 61 72 20 66 75 6e 63 | 50 61 72 0d 69 6e 69 74 |Var func|Par.init|
|00000c30| 54 63 6c 56 61 72 20 68 | 6f 72 4d 61 72 67 69 6e |TclVar h|orMargin|
|00000c40| 20 34 0d 69 6e 69 74 56 | 61 72 20 6c 65 66 74 46 | 4.initV|ar leftF|
|00000c50| 69 6c 6c 43 6f 6c 75 6d | 6e 0d 69 6e 69 74 56 61 |illColum|n.initVa|
|00000c60| 72 20 6c 65 66 74 4d 61 | 72 67 69 6e 0d 69 6e 69 |r leftMa|rgin.ini|
|00000c70| 74 54 63 6c 56 61 72 20 | 6e 75 6d 57 69 6e 73 54 |tTclVar |numWinsT|
|00000c80| 6f 54 69 6c 65 20 32 0d | 69 6e 69 74 56 61 72 20 |oTile 2.|initVar |
|00000c90| 70 61 72 61 43 6f 6c 75 | 6d 6e 0d 69 6e 69 74 56 |paraColu|mn.initV|
|00000ca0| 61 72 09 70 72 69 6e 74 | 65 72 46 6f 6e 74 0d 69 |ar.print|erFont.i|
|00000cb0| 6e 69 74 56 61 72 09 70 | 72 69 6e 74 65 72 46 6f |nitVar.p|rinterFo|
|00000cc0| 6e 74 53 69 7a 65 0d 69 | 6e 69 74 54 63 6c 46 6c |ntSize.i|nitTclFl|
|00000cd0| 61 67 20 70 72 69 6e 74 | 48 65 61 64 65 72 20 31 |ag print|Header 1|
|00000ce0| 0d 69 6e 69 74 54 63 6c | 46 6c 61 67 20 70 72 69 |.initTcl|Flag pri|
|00000cf0| 6e 74 48 65 61 64 65 72 | 54 69 6d 65 20 31 0d 69 |ntHeader|Time 1.i|
|00000d00| 6e 69 74 54 63 6c 46 6c | 61 67 20 70 72 69 6e 74 |nitTclFl|ag print|
|00000d10| 48 65 61 64 65 72 46 75 | 6c 6c 50 61 74 68 20 30 |HeaderFu|llPath 0|
|00000d20| 0d 69 6e 69 74 56 61 72 | 20 73 61 76 65 64 53 74 |.initVar| savedSt|
|00000d30| 61 74 65 0d 69 6e 69 74 | 56 61 72 20 73 6f 72 74 |ate.init|Var sort|
|00000d40| 43 6f 6c 75 6d 6e 0d 69 | 6e 69 74 56 61 72 20 74 |Column.i|nitVar t|
|00000d50| 61 62 53 69 7a 65 0d 69 | 6e 69 74 56 61 72 20 74 |abSize.i|nitVar t|
|00000d60| 61 67 46 69 6c 65 0d 69 | 6e 69 74 54 63 6c 56 61 |agFile.i|nitTclVa|
|00000d70| 72 20 74 69 6c 65 48 65 | 69 67 68 74 0d 69 6e 69 |r tileHe|ight.ini|
|00000d80| 74 54 63 6c 56 61 72 20 | 74 69 6c 65 4c 65 66 74 |tTclVar |tileLeft|
|00000d90| 20 32 0d 69 6e 69 74 54 | 63 6c 56 61 72 20 74 69 | 2.initT|clVar ti|
|00000da0| 6c 65 4d 61 72 67 69 6e | 20 32 32 0d 69 6e 69 74 |leMargin| 22.init|
|00000db0| 54 63 6c 56 61 72 20 74 | 69 6c 65 50 72 6f 70 6f |TclVar t|ilePropo|
|00000dc0| 72 74 69 6f 6e 20 2e 36 | 30 0d 69 6e 69 74 54 63 |rtion .6|0.initTc|
|00000dd0| 6c 56 61 72 20 74 69 6c | 65 54 6f 70 0d 69 6e 69 |lVar til|eTop.ini|
|00000de0| 74 54 63 6c 56 61 72 20 | 74 69 6c 65 57 69 64 74 |tTclVar |tileWidt|
|00000df0| 68 0d 69 6e 69 74 56 61 | 72 20 74 6f 70 4d 61 72 |h.initVa|r topMar|
|00000e00| 67 69 6e 0d 69 6e 69 74 | 56 61 72 20 77 6f 72 64 |gin.init|Var word|
|00000e10| 42 72 65 61 6b 0d 69 6e | 69 74 56 61 72 20 77 6f |Break.in|itVar wo|
|00000e20| 72 64 42 72 65 61 6b 50 | 72 65 66 61 63 65 0d 69 |rdBreakP|reface.i|
|00000e30| 6e 69 74 56 61 72 09 77 | 72 61 70 42 72 65 61 6b |nitVar.w|rapBreak|
|00000e40| 0d 69 6e 69 74 56 61 72 | 09 77 72 61 70 42 72 65 |.initVar|.wrapBre|
|00000e50| 61 6b 50 72 65 66 61 63 | 65 0d 69 6e 69 74 56 61 |akPrefac|e.initVa|
|00000e60| 72 09 77 72 61 70 48 69 | 67 68 0d 69 6e 69 74 56 |r.wrapHi|gh.initV|
|00000e70| 61 72 09 77 72 61 70 4c | 6f 77 0d 0d 0d 23 20 46 |ar.wrapL|ow...# F|
|00000e80| 6c 61 67 73 20 74 68 61 | 74 20 77 6f 6e 27 74 20 |lags tha|t won't |
|00000e90| 61 70 70 65 61 72 20 69 | 6e 20 74 68 65 20 6d 65 |appear i|n the me|
|00000ea0| 6e 75 2e 0d 6c 69 6e 6b | 56 61 72 20 6e 75 6d 4c |nu..link|Var numL|
|00000eb0| 6f 63 6b 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |ock.....|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000f10| 61 63 74 65 72 73 20 3d | 20 46 41 4c 53 45 3b 0d |acters =| FALSE;.|
|00000f20| 09 69 6e 74 09 09 09 09 | 73 6b 69 70 50 61 72 61 |.int....|skipPara|
|00000f30| 09 66 6c 61 67 73 2e 74 | 63 6c 02 00 00 00 54 45 |.flags.t|cl....TE|
|00000f40| 58 54 41 4c 46 41 00 00 | 63 c0 63 c0 00 00 00 00 |XTALFA..|c.c.....|
|00000f50| 00 00 54 45 58 54 41 4c | 46 41 00 00 63 c0 63 c0 |..TEXTAL|FA..c.c.|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 aa 22 82 80 00 00 | 0e 35 00 00 01 7e 73 43 |..."....|.5...~sC|
|00000f80| 75 72 50 65 72 6d 2c 20 | 26 66 4e 75 6d 29 29 29 |urPerm, |&fNum)))|
|00000f90| 20 72 65 74 75 72 6e 20 | 46 41 4c 53 45 3b 0d 09 | return |FALSE;..|
|00000fa0| 47 65 74 45 4f 46 28 66 | 4e 75 6d 2c 26 6c 65 6e |GetEOF(f|Num,&len|
|00000fb0| 29 3b 0d 09 2a 6c 65 6e | 67 74 68 20 3d 20 6c 65 |);..*len|gth = le|
|00000fc0| 6e 3b 0d 09 69 66 20 28 | 21 28 64 61 74 61 20 3d |n;..if (|!(data =|
|00000fd0| 20 66 69 6c 65 42 75 66 | 66 65 72 41 6c 6c 6f 63 | fileBuf|ferAlloc|
|00000fe0| 28 6c 65 6e 20 2b 20 31 | 20 2b 20 73 74 61 72 74 |(len + 1| + start|
|00000ff0| 42 79 74 65 20 2b 20 67 | 61 70 53 69 7a 65 29 29 |Byte + g|apSize))|
|00001000| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 b6 29 f0 |...H..Mo|naco..).|
|00001010| 00 00 1a 14 01 ae 73 7c | 01 d5 7a b0 24 00 04 22 |......s||..z.$.."|
|00001020| 02 0f ea 14 00 01 00 04 | 00 04 00 28 00 02 02 5b |........|...(...[|
|00001030| 02 00 00 28 00 02 02 5b | 02 00 ae 38 c9 a9 00 00 |...(...[|...8....|
|00001040| 09 50 00 00 09 50 00 00 | 05 6d 01 00 00 00 01 00 |.P...P..|.m......|
|00001050| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 ac da c8 |...L...L|...2....|
|00001060| 1a 14 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001070| 00 0a 03 ed ff ff 00 00 | 00 00 01 b6 2b 5c 00 00 |........|....+\..|
+--------+-------------------------+-------------------------+--------+--------+